home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00187_MM Japas- FotosScript 2.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  2.2 KB  |  83 lines
  1. property velMax, velMin
  2. property puloMax
  3. property sprPrim, sprUlt
  4. property area
  5. property lastUpdate
  6. property frameVolta
  7.  
  8. on getBehaviorDescription
  9.   return "Scroll horizontal de sprites"
  10. end
  11.  
  12. on getPropertyDescriptionList
  13.   set p_list = [ ┬¼
  14.     #sprPrim: [ #comment:   "Primeiro sprite a scrollar", ┬¼
  15.                     #format:   #integer, ┬¼
  16.                    #default:   0 ], ┬¼
  17.     #sprUlt: [ #comment:   "Ultimo sprite a scrollar", ┬¼
  18.                     #format:   #integer, ┬¼
  19.                     #default:  0], ┬¼
  20.     #velMax: [ #comment: "Velocidade maxima (pix/s)",┬¼
  21.                       #format: #integer,┬¼
  22.                      #default: 80 ],┬¼
  23.     #velMin: [ #comment: "Velocidade minima (pix/s)",┬¼
  24.                       #format: #integer,┬¼
  25.                      #default: 10 ],┬¼
  26.     #puloMax: [ #comment: "Pulo maximo (pixels)",┬¼
  27.                       #format: #integer,┬¼
  28.                      #default: 30 ],┬¼
  29.     #area: [ #comment: "Area de sensibilidade",┬¼
  30.                       #format: #integer,┬¼
  31.                      #default: 100 ],┬¼
  32.     #frameVolta: [ #comment: "Frame para onde voltar",┬¼
  33.                       #format: #string,┬¼
  34.                      #default: "" ]┬¼
  35.   ]
  36.   return p_list
  37. end
  38.  
  39.  
  40. on exitFrame
  41.   go the frame
  42. end
  43.  
  44. on mouseUp
  45.   sendAllSprites(#stopBola)
  46.   global gAindaMomentos
  47.   set gAindaMomentos = true
  48.   sendAllSprites(#cleanSprite)
  49.   set gAindaMomentos = false
  50.   go frame frameVolta
  51. end
  52.  
  53. on idle
  54.   sendAllSprites(#idleSprite)
  55.   
  56.   set mx = the mouseH
  57.   if mx < area then
  58.     set vel = (velMax - velMin) * (area - mx) / area + velMin
  59.     set pulo = (the timer - lastUpdate) * vel / 60
  60.     if pulo > puloMax then set pulo = puloMax
  61.     if pulo = 0 then set pulo = 1
  62.     repeat with i = sprPrim to sprUlt
  63.       sendSprite(i,#moveRel,pulo)
  64.     end repeat
  65.     set lastUpdate = the timer
  66.     updateStage
  67.   else if mx > 639 - area then
  68.     set vel = (velMax - velMin) * (area - (639 - mx)) / area + velMin
  69.     set pulo = (the timer - lastUpdate) * vel / 60
  70.     if pulo > puloMax then set pulo = puloMax
  71.     if pulo = 0 then set pulo = 1
  72.     repeat with i = sprPrim to sprUlt
  73.       sendSprite(i,#moveRel,-pulo)
  74.     end repeat
  75.     set lastUpdate = the timer
  76.     updateStage    
  77.   else
  78.     set lastUpdate = the timer
  79.   end if
  80.   
  81. end
  82.  
  83.